home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe / Emulator Universe CD (1998).iso / C64 / ROMs / AZTEC.D64 / aztec (.txt)
Commodore BASIC  |  1994-11-21  |  31KB  |  439 lines
  1. 0 DIMR$(20),O$(9),CO$(4),NA$(3),P(22):GOTO2
  2. 2 REM
  3. 3 POKE53248+33,0:POKE53248+32,0
  4. 4 PRINT"[147]- - - [208]LEASE [215]AIT - - -"
  5. 10 DATA0:REM**
  6. 11 DATA000002000000
  7. 12 DATA010000030000
  8. 13 DATA000200000000
  9. 14 DATA000000000001
  10. 15 DATA000000000300
  11. 16 DATA000008000000
  12. 17 DATA000000000006
  13. 18 DATA060900000000
  14. 19 DATA000000080000
  15. 20 DATA080013110000
  16. 21 DATA001000000000
  17. 22 DATA110000000000
  18. 23 DATA100000000000
  19. 24 DATA000000000012
  20. 25 DATA000000140000
  21. 26 DATA001725150000
  22. 27 DATA000000160000
  23. 28 DATA000000170000
  24. 29 DATA201919190000
  25. 30 DATA211919190000
  26. 31 DATA202220200000
  27. 32 DATA212123210000
  28. 33 DATA222222220000
  29. 34 DATA000000000000
  30. 35 DATA160000000000
  31. 36 DATA000000000025
  32. 37 DATA000000000000
  33. 38 DATA000000000000
  34. 39 DATA000000000000
  35. 40 DATA000000002400
  36. 41 DATA000000000000
  37. 42 DATA323232320000
  38. 43 DATA343331330000
  39. 44 DATA003633000000
  40. 45 DATA000000000034
  41. 46 DATA000000340000
  42. 47 DATA000000000000
  43. 50 REM**
  44. 70 ROOMS=37:DIMB$(RO)
  45. 71 FORI=0TORO:READB$(I):NEXT
  46. 75 OB=15:DIMOB$(OB),OB(OB)
  47. 76 FORI=1TOOB
  48. 77 READOB$(I),OB(I):NEXT
  49. 78 DATA SMALL KEY,0,DOOR KEY,0,RED CLOAK,5,SWORD,0,ROPE,0
  50. 79 DATA ENPTY JAM JAR,0,MAP,0,BOX,26,PIECE OF WOOD,7,LIFE JACKET,30
  51. 80 DATA TORCH,28,OLD CHEST,4,FISH,0,DEAD MOUSE,13,DIAMOND,35
  52. 85 NM=32:DIMNM$(NM),NM(NM)
  53. 86 FORI=1TONM:REM**
  54. 87 READNM$(I),NM(I):NEXT
  55. 88 DATA TABLE,1,BED,3,DRAW,3,POOL,9,DINGHY,0,LADDER,1,TRAPDOOR,0
  56. 89 DATA DOOR,2,BIG BEANSTORK,0,SMALL PLANT,12,PATH,14,ELEPHANT,14
  57. 90 DATAVALLEY,15,HARBOUR,17,BOAT,18,BOAT,24,BUILDING,6
  58. 91 DATABRIDGE,0,CABIN,0,DWARF,26,BULL,11,BEACH,0,OPEN HATCH,28
  59. 92 DATA BOAT,29,GATE,11,HOLE,24,ISLAND,20,CLIFF,23
  60. 93 DATA HERBOUR,19,FOREST,31,EMPTY SOCKET,0,OPEN PASSAGE,0
  61. 95 DIMC$(6):FORI=1TO6:READC$(I):NEXT:DATANORTH,EAST,SOUTH,WEST,UP,DOWN
  62. 96 W$=""
  63. 97 TA$="KEYKEYCLOSWOROPJARMAPBOXWOOJACTORCHEFISMOUDIA   JAMLIF":AT=18:T1=15
  64. 100 OL=67:LO$="NOREASSOUWESUP DOWKEYCLOSWOROPJAMJARMAPMOUWOOTABBEDDRAPOOCHELAD"
  65. 101 LO$=LO$+"TRADOOBEAPLAPATELEVALTREHARBOABRICABDWAHALLOFSTRGARBULFIELAKCLI"
  66. 102 LO$=LO$+"FISGATDINOVECORBEAHOLISLBOXJACLIFTORHATCELBUIYOUOFFFOR":REM**
  67. 103 LO$=LO$+"STAAZTWALDIAPASSOC   "
  68. 104 MC=47:CM$="GO  CROSSAILINVEGIVESAVEQUITGET TAKEPICKHELPDROPLEAVTHROCHUC"
  69. 105 CM$=CM$+"LOOKEXAMSEARKILLATTAMOVECUT CHOPCLIMOPENWEARREMOWAITEAT SAY ASK "
  70. 106 CM$=CM$+"PULLPUSHPRESLIGHUNLIDOUSCATCEMPTWATEFILLFUCKPISSJUMPSWIMINSEPLUG"
  71. 110 X=1::GG=40
  72. 111 PRINT"[147][210]ESUME PLAY ON SAVED TAPE ([217]/[206])";:REM**
  73. 112 GOSUB2040:CO$=LEFT$(CO$,1):IFCO$="Y"THEN8050
  74. 113 PRINT"[147]"W$"WELCOME TO THE ,TREASURES OF THE":PRINT"AZTEC TOMB (PT.1)"
  75. 114 PRINTCHR$(14+128);
  76. 120 GOSUB2030:A=0:GOSUB4000:IFA=0THENGOSUB20000:GOTO122:REM**
  77. 121 GOTO130
  78. 122 IFX=0THEN8010
  79. 123 GOSUB2000:GOSUB2020
  80. 124 IFX=8ANDOB(9)=8ANDP(9)=0THENNM(18)=X:PRINTW$"WOOD MAKES A BRIDGE OVER STREAM
  81. 125 [139]X[178]8[175]OB(9)[178]8[175]P(9)[178]0[167]P(9)[178]1:OB(9)[178]0:PP[178]PP[171]1:[137]9000
  82. 126 [139]X[178]37[167]8000
  83. 129 [139]P(20)[178]1[167]GG[178]GG[171]1:[139]GG[179]15[167][153]"TOURCH RUNS OUT IN"GG"TURNS"
  84. 130 [139]P(20)[178]1[167]GG[178]GG[171]1:[139]GG[179]0[167]P(22)[178]1
  85. 131 [139]P(22)[178]1[167]OB$(11)[178]"DEAD TORCH":[153]"TORCH IS DEAD!"
  86. 132 [139]P(22)[178]1[167]P(22)[178]2:[139]OB(11)[178][171]1[167]OB(11)[178]X:PP[178]PP[171]1:P(20)[178]0:[137]120
  87. 133 [153]W$"ONWHAT SHALL I DO NOW ?";
  88. 134 [141]10010:[141]10000
  89. 135 [139]CO$[178]""[167]5010
  90. 136 [141]2050:[143]**
  91. 140 CM[178]0:[129]I[178]1[164]MC:[139]NA$(1)[178][202](CM$,I[172]4[171]3,4)[167]CM[178]I:I[178]MC
  92. 141 [130]:[139]CM[178]0[167][153]">"CO$(1)"<":[137]5000
  93. 142 LO[178]0:[129]I[178]1[164]OL:[139]NA$(2)[178][202](LO$,I[172]3[171]2,3)[167]LO[178]I:I[178]OL
  94. 143 [130]:[139]LO[178]0[167][153]">"CO$(2)"<":[137]5000
  95. 199 [139]CM[179][177]1[175]CM[179][177]2[175]CM[179][177]3[167]300
  96. 200 [139](X[178]30[176]X[178]37)[175](P(20)[178]0[176](OB(11)[179][177][171]1[175]OB(11)[179][177]X))[167]5060
  97. 201 [139]CO$(2)[178]""[167][153]"TRY A DIRECTION!":[137]9001
  98. 202 [139]LO[177]6[167]208:[143]**
  99. 203 A[178][197]([202](B$(X),LO[172]2[171]1,2)):[139]A[179][177]0[167]X[178]A:[137]120
  100. 204 [153]"I CAN'T GO THAT WAY!":[137]9001
  101. 208 [139]LO[178]21[175]X[178]1[167]X[178]4:[137]120
  102. 209 [139]LO[178]22[175]X[178]3[175]P(1)[178]1[167]X[178]5:[137]120
  103. 210 [139]X[178]2[175]LO[178]23[175]P(2)[178]0[167][153]"IT'S LOCKED!":[137]9001
  104. 211 [139]X[178]2[175]LO[178]23[167]X[178]6:[137]9010
  105. 212 [139]X[178]6[175]LO[178]57[167]X[178]2:[137]120:[143]**
  106. 213 [139]LO[178]32[175]X[178]8[175]P(9)[178]1[167]X[178]10:[137]120
  107. 214 [139]LO[178]44[175]X[178]11[175]OB(3)[179]0[167][153]"BULL WON'T LET ME!":[137]9001
  108. 215 [139]LO[178]44[175]X[178]11[167]X[178]12:[137]120
  109. 216 [139]LO[178]37[175]X[178]8[167][153]"I CAN'T SWIM. I GASP FOR AIR....":X[178]0:[137]9000
  110. 217 [139]LO[178]26[175]X[178]14[175]P(16)[178]0[167][153]"ELEPHANT WON'T LET ME":[137]9001
  111. 218 [139]LO[178]26[175]X[178]14[167]X[178]15:[137]9010
  112. 219 [139]LO[178]28[175]X[178]15[167]X[178]16:[137]9010
  113. 220 [139]LO[178]30[175]X[178]17[167]X[178]18:[137]120
  114. 221 [139]LO[178]31[175]X[178]18[167]X[178]19:[137]120
  115. 222 [139]LO[178]50[175]X[178]20[167]X[178]24:[137]120
  116. 223 [139]LO[178]31[175]X[178]24[167]X[178]20:[137]120:[143]**
  117. 224 [139]LO[178]45[175]P(18)[178]1[175](X[177]19[175]X[179]24)[167]OP[178]X:X[178]29:[137]120
  118. 225 [139]LO[178]31[175]X[178]29[167]X[178]OP:[137]120
  119. 226 [139]LO[178]33[175]P(18)[178]1[175](X[177]18[175]X[179]24)[167]OP[178]X:X[178]28:[137]120
  120. 227 [139]LO[178]55[175]X[178]28[167]X[178]OP:[137]120
  121. 228 [139]LO[178]49[175]X[178]24[167]X[178]30:[137]120
  122. 229 [139]LO[178]42[175]X[178]23[167][153]"IT'S TOO HIGH I CAN'T REACH!":[137]9000
  123. 230 [139]LO[178]30[175]X[178]19[167]X[178]18:[137]120
  124. 231 [139]LO[178]60[175]X[178]31[175]OB(7)[179][177][171]1[167]X[178]32:[137]120
  125. 232 [139]LO[178]60[175]X[178]31[167]X[178]33:[137]120
  126. 233 [139]LO[178]65[175]X[178]36[175]NM(32)[178]36[167]X[178]37:[137]120
  127. 234 [139]LO[178]24[175]X[178]27[167]X[178]31:[137]120:[143]**
  128. 299 [153]W$"SORRY!":[137]9001
  129. 300 [139]CM[179][177]16[175]CM[179][177]17[175]CM[179][177]18[167]400
  130. 301 A$[178]"I SEE NOTHING SPECIAL!"
  131. 302 B$[178]"I SEE SOMETHING"
  132. 310 [139]LO[178]17[175]X[178]3[175]P(1)[178]0[167][153]B$:NM(7)[178]X:P(1)[178]1::[137]9000:[143]**
  133. 311 [139]LO[178]8[175](OB(3)[178]X[176]OB(3)[179]0)[167][153]"I FEEL A SENSE OF POWER!":[137]9001
  134. 312 [139]LO[178]18[175]P(3)[178]1[175]P(5)[178]0[175]X[178]3[167][153]B$:OB(2)[178]3:P(3)[178]2:[137]9000
  135. 313 [139]LO[178]56[175]P(6)[178]0[175]OB(3)[178][171]2[175]X[178]5[167][153]B$:OB(1)[178]X:P(6)[178]1:[137]9000
  136. 314 [139]LO[178]16[175]X[178]1[175]P(7)[178]0[167][153]"IT'S DUSTY!":[137]9001
  137. 315 [139]LO[178]35[175]X[178]2[175]P(8)[178]0[167]P(8)[178]1:[153]B$:OB(6)[178]X:[137]9000
  138. 316 [139]LO[178]19[175]X[178]9[175]P(10)[178]0[167]P(10)[178]1:[153]B$:OB(13)[178]X:[137]9000:[143]**
  139. 317 [139]LO[178]43[175]P(10)[178]2[167][153]"IT'S MAGICAL IT SAYS:"
  140. 318 [139]LO[178]43[175]P(10)[178]2[167][153]"PLANTS NEED WATER AND VANISHES!"
  141. 319 [139]LO[178]43[175]P(10)[178]2[167]OB$(6)[178]"EMPTY JAM JAR":P(10)[178]3:P(12)[178]1:[137]9000:[143]**
  142. 320 [139]LO[178]18[175]P(3)[178]0[167][153]"IT WILL OPEN!":[137]9001
  143. 321 [139]LO[178]13[175]OB(7)[178][171]1[167]9050
  144. 322 [139]LO[178]39[175]X[178]11[167][153]"IT LOOKS ANGRY!":[137]9001
  145. 323 [139]LO[178]31[175](X[177]18[175]X[179]24)[175]P(18)[178]0[167]P(18)[178]1:[153]B$:NM(19)[178]20:NM(5)[178]20:[137]9000
  146. 324 [139]LO[178]45[175]X[178]29[167][153]"THERE IS A CORD,ONE END TIED TO DINGHY"
  147. 325 [139]LO[178]45[175]X[178]29[167][153]"OTHER END TO BOAT!":[137]9001
  148. 326 [139]LO[178]14[175](OB(14)[178]X[176]OB(14)[178][171]1)[167][153]W$"IT'S DEAD!":[137]9001
  149. 327 [139]P(21)[178]0[175]X[178]36[175]LO[178]63[167]P(21)[178]1:[153]B$:NM(31)[178]X:[137]9000:[143]**
  150. 328 [139]LO[178]60[175]X[178]32[167][153]"I SEE NO WAY OUT!":[137]9001
  151. 329 [139]LO[178]66[175]NM(31)[178]36[175]X[178]36[167][153]W$"I SEE IT'S ENPTY!":[137]9001
  152. 330 [139]LO[178]61[175]X[178]34[167][153]"I CAN CLIMB IT!":[137]9001
  153. 331 [139]LO[178]34[175]X[178]26[175]NM(20)[178]26[167][153]"HE HOLDS OUT HIS HAND"
  154. 332 [139]LO[178]34[175]X[178]26[175]NM(20)[178]26[167][153]"HE'S WAITING FOR SOMTHING!":[137]130
  155. 399 [153]A$:[137]9001
  156. 400 [139]CM[179][177]8[175]CM[179][177]9[175]CM[179][177]10[167]430
  157. 401 TA[178]0:[129]I[178]1[164]AT:[139][202](TA$,I[172]3[171]2,3)[178]NA$(2)[167]TA[178]I:I[178]AT:[143]**
  158. 402 [130]:[139]PP[178]5[167][153]"I'M CARRING TOO MUCH!":[137]9001
  159. 403 [139]TA[178]OB[170]1[167][153]"EH?":[137]9001
  160. 404 [139]TA[178]OB[170]2[167]TA[178]6
  161. 405 [139]TA[178]OB[170]3[167]TA[178]10
  162. 406 [139]OB(TA)[179][177]X[167]412
  163. 407 [139]TA[178]13[175]P(10)[178]1[167][153]"I CAN'T IT MOVES TOO FAST!":[137]9001
  164. 408 [139]TA[178]5[175]P(14)[178]1[175]X[178]23[167][153]"I CAN'T REACH IT!":[137]9001
  165. 409 [139]TA[178]5[175]P(14)[178]1[167]P(14)[178]0:OB$(5)[178]"ROPE"
  166. 410 [139]TA[178]8[175]P(15)[178]0[167][153]"DWARF WON'T LET ME!":[137]9001
  167. 411 OB(TA)[178][171]1:PP[178]PP[170]1:[137]9010
  168. 412 [139]TA[178]1[167]TA[178]2:[137]406:[143]**
  169. 413 [139]TA[178]0[167]5002
  170. 414 [153]"I CAN'T SEE IT!":[137]9001
  171. 430 [139]CM[179][177]4[167]450
  172. 431 [153]""[163]24)"OPENI AM CARRING:"
  173. 432 Y[178]0:[129]I[178]1[164]OB:[139]OB(I)[179]0[167][153][163]24)OB$(I);:Y[178]1
  174. 433 [139]OB(I)[178][171]2[167][153]"WORN";
  175. 434 [139]OB(I)[179]0[167][153]
  176. 435 [130]:[139]Y[178]0[167][153][163]25)"NOTHING!":[137]9001
  177. 436 [137]130
  178. 450 [139]CM[179][177]25[167]500
  179. 451 [139]CO$(2)[178]""[167]5000
  180. 452 [139]LO[178]23[175]X[179][177]2[167]5001
  181. 453 [139]LO[178]23[175]X[178]2[175]OB(2)[177][171]1[175]P(2)[178]0[167][153]"I HAVEN'T GOT A KEY!":[137]120
  182. 455 [139]LO[178]23[175]X[178]2[175]OB(2)[178][171]1[167][153]"DOOR IS OPEN!":NM$(8)[178]"OPEN DOOR":P(2)[178]1:[137]120
  183. 456 [139]LO[178]18[175]P(3)[178]0[175]X[178]3[167]NM$(3)[178]"OPEN DRAW":P(3)[178]1:[137]9010:[143]**
  184. 457 [139]LO[178]18[175]X[179][177]3[167]5001
  185. 458 [139]LO[178]20[175](OB(12)[179]0[176]OB(12)[178]X)[175]OB(1)[178][171]1[175]P(4)[178]0[167]460
  186. 459 [137]461
  187. 460 OB$(12)[178]"OPEN CHEST":[153]"I SEE SOMETHING!":OB(4)[178]X:OB(5)[178]X:P(4)[178]1:[137]120
  188. 461 [139]LO[178]20[175](OB(12)[179]0[176]OB(12)[178]X)[175]OB(1)[177][171]1[175]P(4)[178]0[167]463
  189. 462 [137]464
  190. 463 [153]"I AIN'T GOT A KEY!":[137]130
  191. 464 [139]LO[178]51[175]OB(8)[179][177][171]1[167]5001
  192. 465 [139]LO[178]51[175]P(17)[178]0[167]OB$(8)[178]"OPEN BOX":OB(7)[178]X:[153]"I SEE SOMTHING!"
  193. 466 [139]LO[178]51[175]P(17)[178]0[167]P(17)[178]1:[137]120
  194. 499 [137]5000
  195. 500 [139] CM[179][177]26[167]530
  196. 501 [139]LO[178]8[175]OB(3)[178][171]1[167]OB(3)[178][171]2:[153]"O.K.":[137]130
  197. 502 [139]LO[178]8[167]5001
  198. 503 [139](LO[178]53[176]LO[178]52)[175]OB(10)[178][171]1[167][153]"O.K.":OB(10)[178][171]2:[137]9001
  199. 504 [139](LO[178]53[176]LO[178]52)[167]5001:[143]**
  200. 529 [137]5000
  201. 530 [139]CM[179][177]12[175]CM[179][177]13[167]560
  202. 531 TA[178]0:[129]I[178]1[164]AT:[139][202](TA$,I[172]3[171]2,3)[178]NA$(2)[167]TA[178]I:I[178]AT
  203. 532 [130]:[139]TA[178]13[175]P(10)[178]2[167]5002
  204. 533 [139]TA[178]OB[170]1[167][153]"EH?"[137]130
  205. 534 [139]TA[178]OB[170]2[167]TA[178]6
  206. 535 [139]TA[178]OB[170]3[167]TA[178]10
  207. 536 [139]OB(TA)[179][177][171]1[167]540
  208. 537 [139]TA[178]14[175]X[178]14[175]P(16)[178]0[167]NM(12)[178]0:[153]"ELEPHANT RUNS OFF IN SHOCK!"
  209. 538 [139]TA[178]14[175]X[178]14[175]P(16)[178]0[167]P(16)[178]1
  210. 539 OB(TA)[178]X:PP[178]PP[171]1:[137]9010
  211. 540 [139]OB(TA)[178][171]2[167][153]"I'M WEARING IT!":[137]130
  212. 541 [139]TA[178]1[167]TA[178]2:[137]536
  213. 542 [139]TA[178]0[167]5002
  214. 543 [137]5000
  215. 560 [139]CM[179][177]24[167]580
  216. 561 [139]LO[178]57[175]X[178]6[167]X[178]7:[137]9010
  217. 562 [139]LO[178]10[175]P(14)[178]1[175]X[178]25[167]X[178]26:[137]9010
  218. 563 [139]LO[178]10 [175]P(14)[178]1[175]X[178]23[167][153]"I CAN'T REACH IT!":[137]9001:[143]**
  219. 564 [139]LO[178]10[167]5001
  220. 565 [139]LO[178]29[175]X[178]25[167][153]"TREE IS TOO SLIPPY!":[137]130
  221. 566 [139]LO[178]24[175]X[178]12[175]P(13)[178]2[167]X[178]14:[137]9010
  222. 567 [139]LO[178]24[175]X[178]12[175]P(13)[178]3[167][153]"BEANSTORK IS TOO WEAK. I FALL AND"
  223. 568 [139]LO[178]24[175]X[178]12[175]P(13)[178]3[167][153]"BREAK MY NECK!":X[178]0:[137]120
  224. 569 [139]LO[178]24[167]5001
  225. 570 [139]LO[178]61[175]X[178]34[167]X[178]35:[137]9010
  226. 579 [137]5000
  227. 580 [139]CM[179][177]38[167]590
  228. 581 [139]LO[179][177]43[167]5000
  229. 582 [139](P(10)[179][177]1[176]X[179][177]9)[167]5001
  230. 583 [139]OB(6)[179][177][171]1[167][153]"IT SWIMS OFF!":OB(13)[178]0:P(10)[178]3:[137]9000
  231. 584 [139]PP[178]5[167]5001
  232. 585 [153]"IT'S NOW IN JAM JAR!":OB(13)[178]0:OB$(6)[178]"FISH IN JAR":P(10)[178]2:[137]9000
  233. 590 [139]CM[179][177]39[167]620
  234. 591 [139]LO[179][177]11[175]LO[179][177]12[167]5000
  235. 592 [139]OB(6)[179][177][171]1[167]5001
  236. 593 [139]P(10)[178]2[167]P(10)[178]3:OB$(13)[178]"DEAD FISH":OB(13)[178]X:[153]"O.K.":[137]610
  237. 594 [139]P(11)[178]0[167][153]"IT'S ALREADY EMPTY!":[137]9001
  238. 595 [139]P(11)[178]1[167]597:[143]**
  239. 596 [137]5001
  240. 597 [139]X[178]12[175]P(12)[178]1[175]P(13)[178]0[167]NM$(10)[178]"LARGE PLANT":[153]"PLANT IS GROWING!"
  241. 598 [139]X[178]12[175]P(12)[178]1[175]P(13)[178]0[167]P(13)[178]1:[137]610
  242. 599 [139]X[178]12[175]P(12)[178]1[175]P(13)[178]1[167]NM(10)[178]0:NM(9)[178]12:P(13)[178]2:[153]"WOW!":[137]610
  243. 609 [153]"O.K.":[153]"NOTHING HAPPENS!"
  244. 610 OB$[178]"EMPTY JAM JAR":P(11)[178]0:[137]120
  245. 620 [139]CM[179][177]41[167]640
  246. 621 [139]LO[179][177]11[175]LO[179][177]12[167]5000
  247. 622 [139]X[179][177]9[175]OB(6)[179][177][171]1[167]5001
  248. 624 [139]P(11)[178]1[167][153]"IT'S ALREADY FILLED UP":[137]9001
  249. 625 P(11)[178]1:OB$(6)[178]"FILLED JAR":[153]"JAM JAR IS NOW FULL!":[137]9001
  250. 640 [139]CM[179][177]40[167]660
  251. 641 [139]LO[179][177]25[167]5000
  252. 642 [139]X[179][177]12[167]5001
  253. 643 [139]P(11)[178]0[167][153]"I HAVE NO WATER!":[137]9001:[143]**
  254. 645 [137]597
  255. 660 [139]CM[179][177]14[175]CM[179][177]15[167]680
  256. 661 [139]LO[179][177]10[175]LO[179][177]8[167]531
  257. 662 [139]LO[178]8[175]OB(3)[177][171]1[167]5001
  258. 663 [139]LO[178]8[175]OB(3)[178][171]2[167][153]"I WEARING IT!":[137]9001
  259. 664 [139]LO[178]8[175]X[179][177]11[167]531
  260. 665 [139]LO[178]8[167]PP[178]PP[171]1:OB(3)[178]12:[153]"IT COMES TO REST IN NEXT FIELD!":[137]130
  261. 666 [139]LO[178]10[175](X[179][177]25[175]X[179][177]23)[167]531
  262. 667 [139]OB(5)[179][177][171]1[167]5001
  263. 668 OB$(5)[178]"HANGING ROPE":OB(5)[178]X:[153]"IT CATCHERS, IT'S SECURE!"
  264. 669 PP[178]PP[171]1:P(14)[178]1:[137]120
  265. 680 [139]CM[179][177]11[167]700
  266. 681 [139]X[178]9[175]P(10)[178]1[167][153]"TRY CATCHING THE FISH":[137]9001
  267. 682 [139]X[178]11[175]OB(3)[179]0[167][153]"PERHAPS IT'S THE CLOAK!":[137]130
  268. 683 [139]X[178]32[167][153]"PERHAPS WE NEED A MAP!!!":[137]130[143]**
  269. 689 [153]"EXAMOPENINE THEN THINKOPEN!":[137]130
  270. 700 [139]CM[179][177]22[175]CM[179][177]23[167]720
  271. 701 [139]OB(4)[179][177][171]1[167][153]"I HAVE NOTHING SHARP TO CUT WITH!":[137]130
  272. 702 [139]LO[178]24[175](X[179][177]12[176]P(13)[179][177]2)[167]5001
  273. 703 [139]LO[178]24[167]P(13)[178]3:NM(9)[178]"DEAD PLANT":[153]"BEANSTROK DIES AND SHRIVELS UP":[137]120
  274. 705 [139]LO[178]47[175]X[179][177]29[167]5001
  275. 706 [139]LO[178]47[167][153]"I'M ADRIFT! I HIT THE ROCKS! AND DROWNED!!":X[178]0:[137]120
  276. 719 [137]5000
  277. 720 [139]CM[179][177]27[167]740
  278. 721 [139]LO[178]8[175]OB(3)[179][177][171]2[167]5001
  279. 722 [139]LO[178]8[167]OB(3)[178][171]1:[153]"O.K.":[137]130
  280. 723 [139](LO[178]52[176]LO[178]53)[175]OB(10)[179][177][171]2[167]5001
  281. 724 [139](LO[178]52[176]LO[178]53)[167]OB(10)[178][171]1:[153]"O.K.":[137]130
  282. 739 [137]5000:[143]**
  283. 740 [139]CM[179][177]19[175]CM[179][177]20[167]760
  284. 741 [139]OB(4)[179][177][171]1[167][153]"I HAVE NO WEAPON!":[137]130
  285. 742 [139]LO[178]43[175]P(13)[178]1[175]X[178]9[167][153]"FISH IS DEAD!":OB$(13)[178]"DEAD FISH"
  286. 743 [139]LO[178]43[175]P(13)[178]1[175]X[178]9[167]P(13)[178]3:[137]120
  287. 744 [139]LO[178]43[175]P(13)[178]3[167]5001
  288. 745 [139]LO[178]43[175]P(13)[178]2[167][153]"IT'S DEAD!":OB$(13)[178]"DEAD FISH"
  289. 746 [139]LO[178]43[175]P(13)[178]2[167]OB$(6)[178]"EMPTY JAM JAR":P(13)[178]3:[137]120
  290. 747 [139]LO[178]14[175](OB(14)[178]X[176]OB(14)[178][171]1)[167][153]"IT'S ALREADY DEAD!":[137]130
  291. 748 [139]LO[178]39[175]X[178]11[167][153]"IT LOOK TOO ANGRY!":[137]130:[143]**
  292. 749 [139]LO[178]27[175]X[178]14[175]P(16)[178]0[167][153]"IT'S TOO BIG TO KILL!":[137]130
  293. 750 [139]LO[178]34[175]X[178]26[175]P(15)[178]0[167]OB(8)[178]0:NM(20)[178]0:[153]"HE VANISHERS WITH HIS BOX!"
  294. 751 [139]LO[178]34[175]X[178]26[175]P(15)[178]0[167]P(15)[178]1:P(17)[178]1:[137]120
  295. 759 [137]5000
  296. 760 [139]CM[179][177]5[167]770
  297. 761 [139]X[179][177]26[176]P(15)[179][177]0[167]5001
  298. 762 [139]LO[179][177]8[167][153]"HE TURNS AWAY! TRY SOMETHING ELSE!":[137]130
  299. 763 [139]OB(3)[179][177][171]1[167][153]"YOU AIN'T GOT IT!":[137]9001
  300. 764 PP[178]PP[171]1:OB(3)[178]0:NM(20)[178]0:P(15)[178]1:[153]"THE DWARF VANISHERS!":[137]120
  301. 770 [139]CM[179][177]42[175]CM[179][177]43[167]780
  302. 771 [153]"GO AND WASH YOU MOUTH OUT!":[137]130
  303. 780 [139]CM[179][177]44[167]800
  304. 781 [139]LO[178]10[175]X[179][177]23[167]5001
  305. 782 [139]LO[178]10[175]P(14)[178]0[167]5001
  306. 783 [139]LO[178]10[167][153]"I'M NOT GOING TO RISK MY LIFE!":[137]130
  307. 784 [139]LO[178]46[175]X[179][177]23[167]5001
  308. 785 [139]LO[178]46[175]OB(10)[179][177][171]2[167][153]"I HIT THE ROCKS AND DROWNED":X[178]0:[137]120
  309. 786 [139]LO[178]46[167][153]"PHEW! LUCKY I WAS WEARING MY LIFEJACKET":X[178]27:[137]9000
  310. 798 [139]LO[178]OL[167][153]"JUMP WHERE?":[137]130
  311. 799 [137]5000:[143]**
  312. 800 [139]CM[179][177]45[167]810
  313. 801 [139]X[179][177]27[167]5001
  314. 802 [139]P(19)[178]0[167]NM(22)[178]27:P(19)[178]1:[137]9010
  315. 803 [153]"O.K.":[137]9001
  316. 810 [139]CM[179][177]35[167]820
  317. 811 [139]LO[179][177]54[167]5000
  318. 812 [139]P(20)[178]1[176]OB(11)[179][177][171]1[176]P(22)[178]2[167]5001
  319. 813 [153]"O.K.":P(20)[178]1:OB$(11)[178]"LIT TORCH":[137]9000
  320. 820 [139]CM[179][177]36[175]CM[179][177]37[167]830
  321. 821 [139]LO[179][177]54[167]5000
  322. 822 [139]P(20)[178]0[176]OB(11)[179][177][171]1[167]5001
  323. 823 [153]"O.K.":OB$(11)[178]"TORCH":P(20)[178]0:[137]9000
  324. 830 [139]CM[179][177]46[175]CM[179][177]47[167]840
  325. 831 [139]LO[179][177]64[167]5000
  326. 832 [139]X[179][177]36[176]NM(31)[178]0[176]OB(15)[179][177][171]1[167]5001
  327. 833 [153]"DIAMOND FITS IN AND VANISHERS!":NM(31)[178]0:NM(32)[178]X:OB(15)[178]0:PP[178]PP[171]1
  328. 834 [137]9000
  329. 840 [139]CM[179][177]28[167]845:[143]**
  330. 841 [153]"TIME PASSAS.......":[153]"NOTHING HAPPENS!":[137]130
  331. 845 [139]CM[179][177]29[167]850
  332. 846 [153]"YUCK! NO THANKS!":[137]130
  333. 850 [139]CM[179][177]30[175]CM[179][177]31[167]855
  334. 851 [153]"O.K.":[153]CO$(2):[153]"NOTHING HAPPENS!":[137]130
  335. 855 [139]CM[179][177]6[167]870
  336. 856 [153]"HIT RETURN WHEN READY!":[141]2040
  337. 857 [159]1,1,1,"AZTEC1"
  338. 858 [152]1,X:[152]1,PP
  339. 859 [129]I[178]1[164]NM:[152]1,NM$(I):[152]1,NM(I):[130]
  340. 860 [129]I[178]1[164]OB:[152]1,OB$(I):[152]1,OB(I):[130]
  341. 861 [129]I[178]1[164]22:[152]1,P(I):[130]
  342. 862 [160]1:[137]120
  343. 870 [139]CM[179][177]7[167]875
  344. 871 [137]8010
  345. 875 [137]5000:[143]**
  346. 2000 Y[178]0:[129]I[178]1[164]OB:[139]OB(I)[178]X[167]Y[178]Y[170]1:R$(Y)[178]OB$(I)
  347. 2001 [130]:[129]I[178]1[164]NM:[139]NM(I)[178]X[167]Y[178]Y[170]1:R$(Y)[178]NM$(I)
  348. 2002 [130]:[139]Y[178]0[167][142]
  349. 2003 [129]I[178]1[164]9:O$(I)[178]"":[130]
  350. 2004 [153]""[163]27)"I CAN SEE:"
  351. 2005 [129]I[178]1[164]Y
  352. 2006 A[178]1
  353. 2007 R[178][195](O$(A)):[139]R[178]0[167]O$(A)[178]R$(I):[137]2010
  354. 2008 [139]R[170][195](R$(I))[170]1[179]14[167]O$(A)[178]O$(A)[170]"-"[170]R$(I):[137]2010
  355. 2009 A[178]A[170]1:[139]A[179]10[167]2007
  356. 2010 [130]:[129]I[178]1[164]9
  357. 2011 [139]O$(I)[179][177]""[167][153][163]26);O$(I):[143]**
  358. 2012 [130]:[142]
  359. 2020 Y[178]0:A$[178]""::[129]I[178]1[164]6:[139][197]([202](B$(X),I[172]2[171]1,2))[179][177]0[167]A$[178]A$[170]" "[170]C$(I):Y[178]1
  360. 2021 [130]:[139]Y[178]0[167][142]
  361. 2022 [153]"EXIT "A$:[142]
  362. 2030 [153]"";:[129]I[178]1[164]15:[153]"                                       ":[130]
  363. 2031 [153]"CLR---------------------------------------"
  364. 2032 [153]"                                       ":[142]
  365. 2040 CO$[178]"":[153]"                  CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[151]788,56
  366. 2041 [161]A$:[139]A$[178]""[167]2041
  367. 2042 [143]
  368. 2043 [139]A$[178][199](20)[175][195](CO$)[177]0[167]CO$[178][200](CO$,[195](CO$)[171]1):[153]"CMD  CMDCMD";:[137]2041
  369. 2044 [139]A$[178][199](13)[167][153]" ":[151]788,49:[142]
  370. 2045 [139][195](CO$)[177]16[167]2041:[143]**
  371. 2046 [139](A$[179]"A"[176]A$[177]"Z")[175]A$[179][177]" "[167]2041
  372. 2047 CO$[178]CO$[170]A$:[153]A$;:[137]2041
  373. 2050 [129]I[178]1[164]3:CO$(I)[178]"":NA$(I)[178]"":[130]:CO$[178]CO$[170]" ":Y[178]1:P[178]1
  374. 2051 [129]I[178]1[164][195](CO$)
  375. 2052 [139][202](CO$,I,1)[178]" "[167]CO$(Y)[178][202](CO$,P,I[171]P):P[178]I[170]1:Y[178]Y[170]1:[141]9098
  376. 2053 [130]
  377. 2054 [139][195](CO$(1))[178]1[167]2056
  378. 2055 [137]2058
  379. 2056 A$[178]"NESWUD":[129]I[178]1[164]6:[139]CO$(1)[178][202](A$,I,1)[167]CO$(1)[178]"GO":CO$(2)[178]C$(I)
  380. 2057 [130]
  381. 2058 [129]I[178]1[164]2
  382. 2059 NA$(I)[178]CO$(I)
  383. 2060 [139][195](NA$(I))[179]4[167]NA$(I)[178]NA$(I)[170]" ":[137]2060
  384. 2061 [130]:NA$(1)[178][200](NA$(1),4)
  385. 2062 NA$(2)[178][200](NA$(2),3):[143]**
  386. 2063 [142]
  387. 4000 [139]P(18)[178]1[167][139]X[177]18[175]X[179]24[167]NM(19)[178]X:NM(5)[178]X
  388. 4001 [139](X[178]30[176]X[178]37)[175]P(20)[178]0[167]A[178]1:[153]"I CAN'T SEE IT'S TOO DRAK"
  389. 4002 [139]X[177]18[175]X[179]24[167][129]I[178]1[164]14:[139]OB(I)[177]18[175]OB(I)[179]24[167]OB(I)[178]X
  390. 4003 [139]X[177]18[175]X[179]24[167][130]
  391. 4004 [142]
  392. 5000 [153]"I DON'T UNDERSTAND!":[137]9001
  393. 5001 [153]"I CAN'T DO THAT YET!":[137]130
  394. 5002 [153]"IT'S BEYOND MY POWER!":[137]9001
  395. 5010 [153][199](34)[199](34)" I DON'T UNDERSTAND":[137]9001
  396. 5060 [153]"IT'S DANGEROUS MOVING IN THE DARK."
  397. 5061 [153]"I FALL AND BREAK MY NECK!":X[178]0:[137]9000:[143]**
  398. 8000 [153]W$"YOU HAVE COMPLETED YOUR FIRST MISSION!"
  399. 8001 [153]"FINISH YOUR MISSION IN AZTEC TOMB (PT.2)"
  400. 8010 [153]W$"ONWANT ANOTHER GAME(Y/N)?";
  401. 8011 [141]2040:CO$[178][200](CO$,1):[143]**
  402. 8012 [139]CO$[178]"Y"[167][138]
  403. 8013 [139]CO$[179][177]"N"[167]8011
  404. 8014 [137]8014
  405. 8050 [153]"HIT RETURN WHEN READY";:[141]2040
  406. 8051 [159]1,1,0,"AZTEC1"
  407. 8052 [132]1,X:[132]1,PP
  408. 8053 [129]I[178]1[164]NM:[132]1,NM$(I):[132]1,NM(I):[130]
  409. 8054 [129]I[178]1[164]OB:[132]1,OB$(I):[132]1,OB(I):[130]
  410. 8055 [129]I[178]1[164]22:[132]1,P(I):[130]
  411. 8056 [160]1:[137]120
  412. 9000 [137]120
  413. 9001 [137]130
  414. 9010 [153]"O.K.":[137]120
  415. 9050 [153]"(null)USRUSRUSRUSRUSR(null)USRUSRUSRUSRUSR(null)USRUSRUSRUSRUSR(null)NUSR(null)"
  416. 9051 [153]"FN XTREE HOUSE     W+ETHEN"
  417. 9052 [153]"FN     FN     FN     FNS THEN"
  418. 9053 [153]"FN     FN     FN     FN  THEN"
  419. 9054 [153]"(null)ANDANDANDANDGIANTANDAND(null)ANDANDANDANDAND(null)ANDANDSQR"
  420. 9055 [153]"FN    LAKE   FN    AZTEC"
  421. 9056 [153]"FN     FN     FN    TUMBTHEN"
  422. 9057 [153]"FN     FN     FN     FN(null) THEN"
  423. 9058 [153]"(null)ANDANDANDANDAND(null)ANDANDANDANDAND(null)ANDANDANDANDAND(null)ANDANDSQR":[143]**
  424. 9060 [153]W$"PRESS RETURN!":[141]2040:[137]120
  425. 9098 [139]CO$(Y[171]1)[178]""[176]Y[178]4[167]Y[178]Y[171]1
  426. 9099 [142]
  427. 10000 [153]W$;:[129]I[178]1[164]5:[153]"                                       ":[130]
  428. 10001 [153]W$;:[142]
  429. 10010 [151]788,56
  430. 10011 [161]A$:[139]A$[178]""[167]10010
  431. 10012 CO$[178]"":[153]"                  CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  432. 10013 [137]2042
  433. 10100 [151]788,56
  434. 10101 [161]A$:[139]A$[178]""[167]10101
  435. 20000 [151]44,64:[137]1:[143]***
  436. 20100 [143]"GOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUBGOSUB
  437. 20101 REM***
  438. 20102 PRINT"BY A R CROWTHER"
  439.